home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON04 / ACT04A / common4.cst / 00037_play again.ls < prev    next >
Encoding:
Text File  |  2003-05-01  |  295 b   |  9 lines
  1. on mouseDown
  2.   if bounceButton(the clickon) then
  3.     --gets the index of next movie and palys it
  4.     set theMovie=chars(the moviename,1,length(the moviename)-4)
  5.     put value(the last char of theMovie)+1 into char length(theMovie) of theMovie
  6.     go to movie the moviepath&theMovie
  7.   end if
  8. end
  9.